﻿Public Partial Class about
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub


    'Private Sub BindQuestionnaire()
    '    Dim objQst As New CQuestionnaire()
    '    Dim objList As New List(Of AQuestionnaire)()
    '    objQst.QID = 14
    '    objList = objQst.SelectQSections()
    '    rptrParent.DataSource = objList
    '    rptrParent.DataBind()
    'End Sub

    'Protected Sub rptrParent_ItemDataBound(sender As Object, e As RepeaterItemEventArgs)
    '    Dim objQst As New CQuestionnaire()
    '    Dim hdnSec As HiddenField = TryCast(e.Item.FindControl("hdnSecID"), HiddenField)
    '    Dim rpChild As Repeater = TryCast(e.Item.FindControl("rptrQuestionnaire"), Repeater)
    '    rpChild.DataSource = objQst.SelectQSubSections(Convert.ToInt32(hdnSec.Value))
    '    rpChild.DataBind()

    '    For Each repeaterItem As RepeaterItem In rpChild.Items
    '        Dim objQst1 As New CQuestionnaire()
    '        ' Databinding with Nested Repeater Control  
    '        Dim sSubID As String = DirectCast(repeaterItem.FindControl("hdnSubID"), HiddenField).Value
    '        DirectCast(repeaterItem.FindControl("rptrQuestionS"), Repeater).DataSource = objQst1.SelectQstns(Convert.ToInt32(sSubID))
    '        DirectCast(repeaterItem.FindControl("rptrQuestionS"), Repeater).DataBind()
    '    Next
    'End Sub

    'Protected Sub rptrQuestionS_ItemDataBound(sender As Object, e As RepeaterItemEventArgs)
    '    Dim objQst As New CQuestionnaire()
    '    Dim hdnQstnTyp As HiddenField = TryCast(e.Item.FindControl("hdnQstnType"), HiddenField)
    '    Dim lblQstNo As Label = TryCast(e.Item.FindControl("lblQstNo"), Label)
    '    Dim lblQstNo1 As Label = TryCast(e.Item.FindControl("lblQstNo1"), Label)
    '    Dim dvDS As HtmlGenericControl = DirectCast(e.Item.FindControl("dvDesc"), HtmlGenericControl)
    '    Dim dvYN As HtmlGenericControl = DirectCast(e.Item.FindControl("dvYN"), HtmlGenericControl)
    '    If hdnQstnTyp.Value.ToString() = "1" Then
    '        dvYN.Visible = True
    '        dvDS.Visible = False
    '        lblQstNo1.Text = (e.Item.ItemIndex + 1).ToString()
    '    Else
    '        dvYN.Visible = False
    '        dvDS.Visible = True
    '        lblQstNo.Text = (e.Item.ItemIndex + 1).ToString()
    '    End If
    'End Sub

    '=======================================================
    'Service provided by Telerik (www.telerik.com)
    'Conversion powered by NRefactory.
    'Twitter: @telerik
    'Facebook: facebook.com/telerik
    '=======================================================

End Class